home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / windows / games / bjack1.exe / INSTALL.GBL < prev    next >
Text File  |  1991-11-19  |  27KB  |  599 lines
  1. '*****************************************************************
  2. '**           Microsoft Visual Basic LAN Manager Toolkit        **
  3. '**            Copyright(c) Microsoft Corp., 1991               **
  4. '*****************************************************************
  5.  
  6. '********************************************************************
  7. '*                                                                  *
  8. '*  About this file ...  NETCONS.TXT                                *
  9. '*                                                                  *
  10. '*  This file contains constants used throughout the LAN Manager    *
  11. '*  API header files.  It should be included in the global module   *
  12. '*  of any Visual Basic program that is going to call a LAN Manager *
  13. '*  API.                                                            *
  14. '*                                                                  *
  15. '********************************************************************
  16.  
  17.  
  18. Global Const ASSUMEBLEN = 255             '* this constant is used for the
  19.                       '  record structure field with
  20.                       '  unknown size (mostly list of
  21.                       '  multiple information     *
  22.  
  23. Global Const ASSUMESLEN = 50             '* this constant is used for the
  24.                      '  record structure field with
  25.                      '  unknown size (mostly single infor-
  26.                      '  mation    *
  27. Global Const CNLEN = 15             '* Computer name length     *
  28. Global Const CNLEN8 = (CNLEN + 1) * 8 - 1 '* Maximum 8 computer names *
  29.                       '  length separated by comma *
  30.  
  31. Global Const UNCLEN = CNLEN + 2           '* UNC computer name length *
  32. Global Const NNLEN = 12             '* 8.3 Net name length      *
  33. Global Const RMLEN = UNCLEN + 1 + NNLEN '* Maximum remote name length *
  34.  
  35.  
  36. Global Const SNLEN = 15             '* Service name length      *
  37. Global Const STXTLEN = 63           '* Service text length      *
  38.  
  39. Global Const PATHLEN = 260
  40. Global Const VBLMPATHLEN = PATHLEN - 1 '* VB pathlen without terminating NULL
  41.     
  42.  
  43. Global Const PRINTERNAME_SIZE = 32  '* printer name
  44. Global Const PRINTERNAME_SIZE10 = (PRINTERNAME_SIZE + 1) * 10 - 1
  45.                     '* 10 printer names separated by commas
  46. Global Const DRIV_NAME_SIZE = 8  '* device driver name
  47. Global Const DRIV_NAME_SIZE10 = (DRIV_NAME_SIZE + 1) * 10 - 1
  48.                         '* 10 device driver name w/ commas
  49. Global Const DRIV_DEVICENAME_SIZE = 31 '* Device driver data string
  50.  
  51. Global Const DEVLEN = 8             '* Device name length       *
  52.  
  53. Global Const DNLEN = CNLEN          '* Maximum domain name length *
  54. Global Const DNLEN10 = (DNLEN + 1) * 10 - 1 '* Maximum 10 domain names  *
  55.                         '* length separated by space *
  56. Global Const CCHMAXPATHCOMP = 256  '* queue name
  57.  
  58. Global Const EVLEN = 16             '* event name length        *
  59. Global Const JOBSTLEN = 80          '* status length in print job *
  60. Global Const AFLEN = 64             '* Maximum length of alert  *
  61.                             '* names field              *
  62. Global Const UNLEN = 20             '* Maximum user name length *
  63. Global Const GNLEN = UNLEN          '* Group name               *
  64. Global Const PWLEN = 14             '* Maximum password length  *
  65. Global Const SHPWLEN = 8            '* Share password length    *
  66. Global Const CLTYPE_LEN = 12        '* Length of client type string *
  67.  
  68.  
  69. Global Const MAXCOMMENTSZ = 48      '* server & share comment length *
  70.  
  71. Global Const QNLEN = 12             '* Queue name maximum length     *
  72. Global Const PDLEN = 8              '* Print destination length      *
  73. Global Const PDLEN10 = (PDLEN + 1) * 10 - 1  '* max of 10 Print destination
  74.                          ' length  separated by space   *
  75. Global Const DTLEN = 9              '* Spool file data type          *
  76.                             '* e.g. IBMQSTD,IBMQESC,IBMQRAW  *
  77. Global Const ALERTSZ = 128          '* size of alert string in server *
  78.  
  79. Global Const INTSIZE = 2
  80. Global Const LONGSIZE = 4
  81. Global Const SINGLESIZE = 4
  82. Global Const DOUBLESIZE = 8
  83.  
  84. Global Const MAXDEVENTRIES = INTSIZE * 8 '* Max number of device entries   *
  85.                                  '* We use int bitmap to represent *
  86.  
  87. Global Const HOURS_IN_WEEK = 168         '* for struct user_info_2 in UAS *
  88. Global Const MAXWORKSTATIONS = 8            '* for struct user_info_2 in UAS *
  89.  
  90. Global Const NETBIOS_NAME_LEN = 16          '* NetBIOS net name *
  91.  
  92.  
  93.  
  94. '*
  95. '*      Constants used with encryption
  96. '*
  97.  
  98. Global Const CRYPT_KEY_LEN = 7
  99. Global Const CRYPT_TXT_LEN = 8
  100. Global Const ENCRYPTED_PWLEN = 16
  101. Global Const SESSION_PWLEN = 24
  102. Global Const SESSION_CRYPT_KLEN = 21
  103.  
  104. '*
  105. '*  Value to be used with SetInfo calls to allow setting of all
  106. '*  settable parameters (parmnum zero option)
  107. '*
  108.  
  109. '*
  110. '*      Message File Names
  111. '*
  112.  
  113. Global Const MESSAGE_FILE = "NETPROG\\NET.MSG"
  114. Global Const MESSAGE_FILENAME = "NET.MSG"
  115. Global Const OS2MSG_FILE = "NETPROG\\OSO001.MSG"
  116. Global Const OS2MSG_FILENAME = "OSO001.MSG"
  117. Global Const HELP_MSG_FILE = "NETPROG\\NETH.MSG"
  118. Global Const HELP_MSG_FILENAME = "NETH.MSG"
  119. Global Const NMP_MSG_FILE = "NETPROG\\NMP.MSG"
  120. Global Const NMP_MSG_FILENAME = "NMP.MSG"
  121.  
  122. Global Const MESSAGE_FILE_BASE = "NETPROG\\NET00000"
  123. Global Const MESSAGE_FILE_EXT = ".MSG"
  124.  
  125.  
  126.  
  127. Global Const NMP_LOW_END = 230
  128. Global Const NMP_HIGH_END = 240
  129.  
  130. Global Const NULL = 0
  131.  
  132.  
  133. Global Const PUNAVAIL = NULL
  134.  
  135.  
  136.  
  137. '*****************************************************************
  138. '**           Microsoft Visual Basic LAN Manager Toolkit        **
  139. '**            Copyright(c) Microsoft Corp., 1991               **
  140. '*****************************************************************
  141.  
  142. '********************************************************************
  143. '*                                                                  *
  144. '*  About this file ...  SERVER.TXT                                 *
  145. '*                                                                  *
  146. '*  This file contains information about the NetServer APIs.        *
  147. '*                                                                  *
  148. '*      Function prototypes.                                        *
  149. '*                                                                  *
  150. '*      Data structure templates.                                   *
  151. '*                                                                  *
  152. '*      Definition of special values.                               *
  153. '*                                                                  *
  154. '*                                                                  *
  155. '*  NOTE:  You must include NETCONS.TXT before this file, since this*
  156. '*         file depends on values defined in NETCONS.TXT.           *
  157. '*                                                                  *
  158. '********************************************************************
  159.  
  160. '****************************************************************
  161. '*                                                              *
  162. '*              Function prototypes                             *
  163. '*                                                              *
  164. '****************************************************************
  165.  
  166. Declare Function NetServerAdminCommand% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszCommand$, psResult%, ByVal pszBuffer$, ByVal cbBuffer%, pcbReturned%, pcbTotalAvail%)
  167.  
  168. Declare Function NetServerDiskEnum% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%)
  169.          'pbBuffer will contain consecutive ASCIIZ strings indicating
  170.          'the list of disk drive names.  There is currently no direct
  171.          'method for handling this type of buffer construct.
  172.  
  173. Declare Function NetServerEnum2% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%, ByVal flServerType&, ByVal pszDomain$)
  174.  
  175. Declare Function NetServerGetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcbTotalAvail%)
  176.  
  177. Declare Function NetServerSetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, ByVal sParmNum%)
  178.  
  179.  
  180. '****************************************************************
  181. '*                                                              *
  182. '*              Data structure templates                        *
  183. '*                                                              *
  184. '****************************************************************
  185.  
  186. Type server_info_0
  187.     sv0_name As String * CNLEN  '* Server name              *
  188. End Type         '* server_info_0 *
  189.  
  190. Global Const FMT_server_info_0 = "S15"
  191.  
  192.  
  193. Type server_info_1
  194.     sv1_name As String * CNLEN
  195.     sv1_version_major As String * 1             '* Major version # of net   *
  196.     sv1_version_minor As String * 1             '* Minor version # of net   *
  197.     sv1_type As Long                            '* Server type              *
  198.     sv1_comment As String
  199. End Type         '* server_info_1 *
  200.  
  201. Global Const FMT_server_info_1 = "S15B1B1LP48"
  202.  
  203.  
  204. Type server_info_2
  205.     sv2_name As String * CNLEN
  206.     sv2_version_major As String * 1
  207.     sv2_version_minor As String * 1
  208.     sv2_type As Long
  209.     sv2_comment As String
  210.     sv2_ulist_mtime As Long'* User list, last modification time    *
  211.     sv2_glist_mtime As Long '* Group list, last modification time   *
  212.     sv2_alist_mtime As Long '* Access list, last modification time  *
  213.     sv2_users As Integer       '* max number of users allowed          *
  214.     sv2_disc As Integer     '* auto-disconnect timeout(in minutes)  *
  215.     sv2_alerts As String    '* alert names (semicolon separated)
  216.     sv2_security As Integer    '* SV_USERSECURITY or SV_SHARESECURITY  *
  217.     sv2_auditing As Integer    '* 0 = no auditing; nonzero = auditing  *
  218.     sv2_numadmin As Integer    '* max number of administrators allowed *
  219.     sv2_lanmask As Integer     '* bit mask representing the srv'd nets *
  220.     sv2_hidden As Integer      '* 0 = visible; nonzero = hidden        *
  221.     sv2_announce As Integer    '* visible server announce rate (sec)   *
  222.     sv2_anndelta As Integer    '* announce randomize interval (sec)    *
  223.     sv2_guestacct As String * UNLEN '* name of guest account           *
  224.     sv2_pad1 As String * 1          '* Word alignment pad byte         *
  225.     sv2_userpath As String     '* ASCIIZ path to user directories*
  226.     sv2_chdevs As Integer      '* max # shared character devices       *
  227.     sv2_chdevq As Integer      '* max # character device queues        *
  228.     sv2_chdevjobs As Integer   '* max # character device jobs          *
  229.     sv2_connections As Integer '* max # of connections                 *
  230.     sv2_shares As Integer      '* max # of shares                      *
  231.     sv2_openfiles As Integer   '* max # of open files                  *
  232.     sv2_sessopens As Integer   '* max # of open files per session      *
  233.     sv2_sessvcs As Integer     '* max # of virtual circuits per client *
  234.     sv2_sessreqs As Integer    '* max # of simul. reqs. from a client  *
  235.     sv2_opensearch As Integer   '* max # of open searches              *
  236.     sv2_activelocks As Integer '* max # of active file locks           *
  237.     sv2_numreqbuf As Integer   '* number of server (standard) buffers  *
  238.     sv2_sizreqbuf As Integer   '* size of svr (standard) bufs (bytes)  *
  239.     sv2_numbigbuf As Integer   '* number of big (64K) buffers          *
  240.     sv2_numfiletasks As Integer'* number of file worker processes      *
  241.     sv2_alertsched As Integer  '* alert counting interval (minutes)    *
  242.     sv2_erroralert As Integer  '* error log alerting threshold         *
  243.     sv2_logonalert As Integer  '* logon violation alerting threshold   *
  244.     sv2_accessalert As Integer '* access violation alerting threshold  *
  245.     sv2_diskalert As Integer   '* low disk space alert threshold (KB)  *
  246.     sv2_netioalert As Integer  '* net I/O error ratio alert threshold  *
  247.                    '*  (tenths of a percent)               *
  248.     sv2_maxauditsz As Integer  '* Maximum audit file size (KB)         *
  249.     sv2_srvheuristics As String '* performance related server switches*
  250. End Type        '* server_info_2 *
  251.  
  252. Global Const FMT_server_info_2 = "S15B1B1LP48LLLIIP255IIIIIIIS20B1P259IIIIIIIIIIIIIIIIIIIIIIP20"
  253.  
  254.  
  255. Type server_info_3
  256.     sv3_name As String * CNLEN
  257.     sv3_version_major As String * 1
  258.     sv3_version_minor As String * 1
  259.     sv3_type As Long
  260.     sv3_comment As String
  261.     sv3_ulist_mtime As Long '* User list, last modification time    *
  262.     sv3_glist_mtime As Long '* Group list, last modification time   *
  263.     sv3_alist_mtime As Long '* Access list, last modification time  *
  264.     sv3_users As Integer    '* max number of users allowed          *
  265.     sv3_disc As Integer     '* auto-disconnect timeout(in minutes)  *
  266.     sv3_alerts As String    '* alert names (semicolon separated)
  267.     sv3_security As Integer    '* SV_USERSECURITY or SV_SHARESECURITY  *
  268.     sv3_auditing As Integer    '* 0 = no auditing; nonzero = auditing  *
  269.     sv3_numadmin As Integer    '* max number of administrators allowed *
  270.     sv3_lanmask As Integer     '* bit mask representing the srv'd nets *
  271.     sv3_hidden As Integer      '* 0 = visible; nonzero = hidden      *
  272.     sv3_announce As Integer    '* visible server announce rate (sec)   *
  273.     sv3_anndelta As Integer    '* announce randomize interval (sec)    *
  274.                    
  275.     sv3_guestacct As String * UNLEN '* name of guest account           *
  276.     sv3_pad1 As String * 1          '* Word alignment pad byte         *
  277.     sv3_userpath As String     '* ASCIIZ path to user directories*
  278.     sv3_chdevs As Integer      '* max # shared character devices       *
  279.     sv3_chdevq As Integer      '* max # character device queues      *
  280.     sv3_chdevjobs As Integer   '* max # character device jobs        *
  281.     sv3_connections As Integer '* max # of connections              *
  282.     sv3_shares As Integer      '* max # of shares                            *
  283.     sv3_openfiles As Integer   '* max # of open files               *
  284.     sv3_sessopens As Integer   '* max # of open files per session     *
  285.     sv3_sessvcs As Integer     '* max # of virtual circuits per client *
  286.     sv3_sessreqs As Integer    '* max # of simul. reqs. from a client  *
  287.     sv3_opensearch As Integer  '* max # of open searches                    *
  288.     sv3_activelocks As Integer '* max # of active file locks         *
  289.     sv3_numreqbuf As Integer   '* number of server (standard) buffers  *
  290.     sv3_sizreqbuf As Integer   '* size of svr (standard) bufs (bytes)  *
  291.     sv3_numbigbuf As Integer   '* number of big (64K) buffers        *
  292.     sv3_numfiletasks As Integer'* number of file worker processes      *
  293.     sv3_alertsched As Integer  '* alert counting interval (minutes)    *
  294.     sv3_erroralert As Integer  '* error log alerting threshold       *
  295.     sv3_logonalert As Integer  '* logon violation alerting threshold   *
  296.     sv3_accessalert As Integer '* access violation alerting threshold  *
  297.     sv3_diskalert As Integer   '* low disk space alert threshold (KB)  *
  298.     sv3_netioalert As Integer  '* net I/O error ratio alert threshold  *
  299.                        '*  (tenths of a percent)               *
  300.     sv3_maxauditsz As Integer  '* Maximum audit file size (KB)       *
  301.     sv3_srvheuristics As String '* performance related server switches*
  302.     sv3_auditedevents As Long  '* Audit event control mask            *
  303.     sv3_autoprofile As Integer '* (0,1,2,3) = (NONE,LOAD,SAVE,or BOTH) *
  304.     sv3_autopath As String
  305.                    '* file pathname (where to load & save) *
  306. End Type        '* server_info_3 *
  307.  
  308. 'BUGBUG We don't know how long the alerts string is
  309. Global Const FMT_server_info_3 = "S15B1B1LP48LLLIIP255IIIIIIIS20B1P259IIIIIIIIIIIIIIIIIIIIIIP20LIP259"
  310.  
  311.  
  312. '****************************************************************
  313. '*                                                              *
  314. '*              Special values and constants                    *
  315. '*                                                              *
  316. '****************************************************************
  317.  
  318. '*
  319. '*      Mask to be applied to svX_version_major in order to obtain
  320. '*      the major version number.
  321. '*
  322.  
  323. Global Const MAJOR_VERSION_MASK = &HF
  324.  
  325. '*
  326. '*      Bit-mapped values for svX_type fields. X = 1, 2 or 3.
  327. '*
  328.  
  329. Global Const SV_TYPE_WORKSTATION = &H1
  330. Global Const SV_TYPE_SERVER = &H2
  331. Global Const SV_TYPE_SQLSERVER = &H4
  332. Global Const SV_TYPE_DOMAIN_CTRL = &H8
  333. Global Const SV_TYPE_DOMAIN_BAKCTRL = &H10
  334. Global Const SV_TYPE_TIME_SOURCE = &H20
  335. Global Const SV_TYPE_AFP = &H40
  336. Global Const SV_TYPE_NOVELL = &H80
  337. Global Const SV_TYPE_ALL = &HFFFFFFFF   '* handy for NetServerEnum2 *
  338.  
  339. '*
  340. '*      Special value for svX_disc that specifies infinite disconnect
  341. '*      time. X = 2 or 3.
  342. '*
  343.  
  344. Global Const SV_NODISC = &HFFFF '* No autodisconnect timeout enforced *
  345.  
  346. '*
  347. '*      Values of svX_security field. X = 2 or 3.
  348. '*
  349.  
  350. Global Const SV_USERSECURITY = 1
  351. Global Const SV_SHARESECURITY = 0
  352.  
  353. '*
  354. '*      Values of svX_hidden field. X = 2 or 3.
  355. '*
  356.  
  357. Global Const SV_HIDDEN = 1
  358. Global Const SV_VISIBLE = 0
  359.  
  360. '*
  361. '*      Values for parmnum parameter to NetServerSetInfo.
  362. '*
  363.  
  364. Global Const SV_COMMENT_PARMNUM = 5
  365. Global Const SV_DISC_PARMNUM = 10
  366. Global Const SV_ALERTS_PARMNUM = 11
  367. Global Const SV_HIDDEN_PARMNUM = 16
  368. Global Const SV_ANNOUNCE_PARMNUM = 17
  369. Global Const SV_ANNDELTA_PARMNUM = 18
  370. Global Const SV_ALERTSCHED_PARMNUM = 37
  371. Global Const SV_ERRORALERT_PARMNUM = 38
  372. Global Const SV_LOGONALERT_PARMNUM = 39
  373. Global Const SV_ACCESSALERT_PARMNUM = 40
  374. Global Const SV_DISKALERT_PARMNUM = 41
  375. Global Const SV_NETIOALERT_PARMNUM = 42
  376. Global Const SV_MAXAUDITSZ_PARMNUM = 43
  377.  
  378. Global Const SVI1_NUM_ELEMENTS = 5
  379. Global Const SVI2_NUM_ELEMENTS = 44
  380. Global Const SVI3_NUM_ELEMENTS = 45
  381.  
  382. '*
  383. '*      Maxmimum length for command string to NetServerAdminCommand.
  384. '*
  385.  
  386. Global Const SV_MAX_CMD_LEN = VBLMPATHLEN
  387.  
  388.  
  389.  
  390. '*
  391. '*      Masks describing AUTOPROFILE parameters
  392. '*
  393.  
  394. Global Const SW_AUTOPROF_LOAD_MASK = &H1
  395. Global Const SW_AUTOPROF_SAVE_MASK = &H2
  396.  
  397.  
  398.  
  399. '*****************************************************************
  400. '**           Microsoft Visual Basic LAN Manager Toolkit        **
  401. '**            Copyright(c) Microsoft Corp., 1991               **
  402. '*****************************************************************
  403.  
  404. '********************************************************************
  405. '*                                                                  *
  406. '*  About this file ...  SERVICE.TXT                                *
  407. '*                                                                  *
  408. '*  This file contains information about the NetService APIs.       *
  409. '*                                                                  *
  410. '*      Function protostructs.                                      *
  411. '*                                                                  *
  412. '*      Data structure templates.                                   *
  413. '*                                                                  *
  414. '*      Definition of special values.                               *
  415. '*                                                                  *
  416. '*                                                                  *
  417. '*  NOTE:  You must include NETCONS.TXT before this file, since this*
  418. '*         file depends on values defined in NETCONS.TXT.           *
  419. '*                                                                  *
  420. '********************************************************************
  421.  
  422.  
  423. '****************************************************************
  424. '*                                                              *
  425. '*              Function prototypes                             *
  426. '*                                                              *
  427. '****************************************************************
  428.  
  429. Declare Function NetServiceControl% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal fbOpCode_and_fbArg%, ByVal pbBuffer&, ByVal cbBuffer%)
  430.          'The fbOpCode and fbArg parameters are actually each
  431.          'unsigned char data types.  Since VB does not have a
  432.          'comparable data type, these are grouped together and
  433.          'passed as an integer.
  434.  
  435. Declare Function NetServiceEnum% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%)
  436.  
  437. Declare Function NetServiceGetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcbTotalAvail%)
  438.  
  439. Declare Function NetServiceInstall% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal pszCmdArgs$, ByVal pbBuffer&, ByVal cbBuffer%)
  440.  
  441. ' NetServiceStatus is not supported under MS-DOS.
  442.  
  443. '****************************************************************
  444. '*                                                              *
  445. '*              Data structure templates                        *
  446. '*                                                              *
  447. '****************************************************************
  448.  
  449.  
  450. Type service_info_0
  451.     svci0_name As String * SNLEN
  452. End Type        '* service_info_0 *
  453.  
  454. Global Const FMT_service_info_0 = "S15"
  455.  
  456. Type service_info_1
  457.     svci1_name As String * SNLEN  '* service name                       *
  458.     svci1_status As Integer            '* See status values below       *
  459.     svci1_code As Long         '* install code of service       *
  460.     svci1_pid As Integer               '* pid of service program        *
  461. End Type        '* service_info_1 *
  462.  
  463. Global Const FMT_service_info_1 = "S15ILI"
  464.  
  465. Type service_info_2
  466.     svci2_name As String * SNLEN  '* service name                       *
  467.     svci2_status As Integer            '* See status values below       *
  468.     svci2_code As Long         '* install code of service       *
  469.     svci2_pid As Integer               '* pid of service program        *
  470.     svci2_text As String * STXTLEN   '* text area for use by services *
  471. End Type        '* service_info_2 *
  472.  
  473. Global Const FMT_service_info_2 = "S15ILIS63"
  474.  
  475. Type service_status
  476.     svcs_status As Integer             '* See status values below       *
  477.     svcs_code As Long          '* install code of service       *
  478.     svcs_pid As Integer        '* pid of service program        *
  479.     svcs_text As String * STXTLEN   '* text area for use by services *
  480. End Type        '* service_status *
  481.  
  482. Global Const FMT_service_status = "ILIS63"
  483.  
  484.  
  485.  
  486.  
  487.  
  488.  
  489.  
  490. '****************************************************************
  491. '*                                                              *
  492. '*                  Function prototypes - VBLANMAN.DLL          *
  493. '*                                                              *
  494. '****************************************************************
  495.  
  496. Declare Function VBTypeToBuffer% Lib "vblanman.dll" (ByVal Dest&, ByVal DestLen%, Src As Any, ByVal SrcLen%, ByVal FormatString$)
  497.  
  498. Declare Function BufferToVBType% Lib "vblanman.dll" (Dest As Any, ByVal DestLen%, ByVal Src&, ByVal SrcLen%, ByVal FormatString$)
  499.  
  500. Declare Function EnumBufferToVBArray% Lib "vblanman.dll" (Dest As Any, ByVal DestLen%, ByVal Src&, ByVal SrcLen%, ByVal FormatString$, ByVal NumEnts%)
  501.  
  502. Declare Function CreateLMBuffer& Lib "vblanman.dll" (ByVal FormatString$, ByVal Entries%, BufferSize%)
  503.  
  504. Declare Function FreeLMBuffer% Lib "vblanman.dll" (ByVal BufferPointer&)
  505.  
  506. Declare Function CFormatSize% Lib "vblanman.dll" (ByVal FormatString$, ByVal Flag%)
  507.  
  508. Declare Function VBFormatSize% Lib "vblanman.dll" (ByVal FormatString$, ByVal Flag%)
  509.  
  510. Declare Function lmerror$ Lib "vblanman.dll" Alias "LMError$" (ByVal ErrorCode%)
  511.  
  512.  
  513. '****************************************************************
  514. '*                                                              *
  515. '*              Special values and constants - VBLANMAN.DLL     *
  516. '*                                                              *
  517. '****************************************************************
  518.  
  519. '*
  520. '*      Flag definitions for CFormatSize and VBFormatSize
  521. '*
  522.  
  523. Global Const TOTAL_SIZE = 0     'Get total size (including var length strings)
  524. Global Const FIXED_LEN_SIZE = 1 'Get fixed length size (no var length strings)
  525.  
  526. '*
  527. '*      Format strings for basic data types
  528. '*
  529.  
  530. Global Const FMT_INTEGER = "I"
  531. Global Const FMT_LONG = "L"
  532. Global Const FMT_STRING = "S"
  533. Global Const FMT_POINTER = "P"
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541. '###################################################
  542. ' End of the includes for the wrappers
  543.  
  544.  
  545. Global Const NERR_Success = 0   '* Success *
  546. Global Const ERROR_MORE_DATA = 234      '* Additional data is available. *
  547.  
  548.  
  549. Global msg As String
  550. Global StartUpDir As String
  551.  
  552. ' MsgBox parameters
  553. Global Const MB_OK = 0                 ' OK button only
  554. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  555. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  556. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  557. Global Const MB_YESNO = 4              ' Yes and No buttons
  558. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  559.  
  560. Global Const MB_ICONSTOP = 16          ' Critical message
  561. Global Const MB_ICONQUESTION = 32      ' Warning query
  562. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  563. Global Const MB_ICONINFORMATION = 64   ' Information message
  564.  
  565. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  566. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  567. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  568.  
  569. ' MsgBox return values
  570. Global Const IDOK = 1                  ' OK button pressed
  571. Global Const IDCANCEL = 2              ' Cancel button pressed
  572. Global Const IDABORT = 3               ' Abort button pressed
  573. Global Const IDRETRY = 4               ' Retry button pressed
  574. Global Const IDIGNORE = 5              ' Ignore button pressed
  575. Global Const IDYES = 6                 ' Yes button pressed
  576. Global Const IDNO = 7                  ' No button pressed
  577.  
  578.  
  579. Global Const ApplicationName = "Service Installer"
  580.  
  581. Global Const TRUE = -1
  582. Global Const FALSE = 0
  583.  
  584.  
  585. Global Const UNCHECKED = 0             ' 0 - Unchecked
  586. Global Const CHECKED = 1               ' 1 - Checked
  587. Global Const GRAYED = 2                ' 2 - Grayed
  588.  
  589. Declare Function WinHelp% Lib "User" (ByVal hwnd%, ByVal HELPFILE$, ByVal wCommand%, ByVal dwData&)
  590. Global Const HELPFILE$ = "\install.hlp"
  591. Global Const HELP_CONTEXT = 1       ' Display topic in ulTopic
  592. Global Const HELP_QUIT = 2          ' Terminate help
  593. Global Const HELP_INDEX = 3         ' Display index
  594. Global Const HELP_HELPONHELP = 4    ' Display help on using help
  595. Global Const HELP_SETINDEX = 5      ' Set the current Index for multi index help
  596. Global Const HELP_KEY = &H101       ' Display topic for keyword in offabData
  597. Global Const HELP_MULTIKEY = &H201
  598.  
  599.